home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / aplibs91.zip / APLIB-H.BAS < prev    next >
BASIC Source File  |  1991-06-11  |  2KB  |  66 lines
  1.  
  2. DEFINT A-Z
  3. WIDTH "LPT1:" , 255
  4.  
  5.  
  6. '                                              compiler instructions ...
  7.  %False =  0
  8.  %True  =  NOT %False '                       basic truths of the universe ...
  9.  %Yes = %True
  10.  %No = %False
  11.  
  12.   %FLAGS = 0:  %AX = 1:  %BX = 2:  %CX = 3:  %DX = 4
  13.      %SI = 5:  %DI = 6:  %BP = 7:  %DS = 8:  %ES = 9
  14.  
  15.  %Background = 16
  16.  %Center = 0
  17.  
  18. 'Printer Codes
  19.         %Star10X = 1:  %StarNX1000 = 2:  %IBMX24 = 3:  %LQ2500 = 4
  20.  
  21.  
  22. 'Color #s
  23.   %Blk = 0:     %Blu = 1:    %Grn = 2:    %Cyn = 3:    %Red = 4:     %Vlt = 5
  24.   %Brn = 6:     %Gry = 7:    %DGry = 8:   %LBlu = 9:   %LGrn = 10:   %LCyn = 11
  25.   %LRed = 12:   %Pnk = 13:   %Ylo = 14:   %Wht = 15:   %Flash = 256
  26.  
  27.  %LeftButton = 1
  28.  %RightButton = 2
  29.  %UDVal = 3 '                  controls mouse sensitivity in POPMENU
  30.  %MouseIcon = 15 '              ... a little sun or bug character
  31.  %MaxMenuWidth = 40
  32.  
  33.  DIM DYNAMIC ScreenStack$ ( 1 : %ScrnStackSize )
  34.  DIM DYNAMIC LastSD (40)
  35.  
  36.  ScrnStackSize = %ScrnStackSize
  37.  
  38.  DIM DYNAMIC MenuData$ (24) ' max menu length = 23; need one more for the "END"
  39.  DIM DYNAMIC MenuHelpLine$ (23)
  40.  DIM DYNAMIC MCode$ (23)
  41.  
  42.  DIM DYNAMIC FieldName$(32), FieldMask$(32), FL(32), FC(32)
  43.  
  44. '  MENU RETURN CODES (KEY PRESSED.)
  45.       %CR = 0:    %Esc = &H20:          %F1 = &H100:           %F2 = &H200
  46.             %PgUp = &H400:              %PgDn = &H600
  47.             %RArrow = &H800:            %LArrow = &HA00
  48.  
  49.   %Okay               =   0
  50.   %FileNotFound       = 1000   'You tried to open a non-existent file
  51.   %FileAlreadyCreated = 1001   'You tried to create an already-created file.
  52.   %InvalidCall        = 1002   'You used a command that doesn't exist.
  53.   %FileNotDBLOW       = 1003   'The file exists, but is not an DBLOW file.
  54.   %TooManyFiles       = 1004   'You have opened more than MaxFiles files.
  55.   %KeyNotFound        = 1005   'You have referenced a non-existant key.
  56.   %EndOfFile          = 1006
  57.   %FileNotOpen        = 1007
  58.   %KeyAlreadyExists   = 1008
  59.   %TooManyKeys        = 1009
  60.   %FileNotDBHIGH      = 1010
  61.   %FileAllowsDups     = 1011   'You tried to open a Duplicate-key file in
  62.                                'non-Duplicate mode
  63.   %BadParameter       = 1012   'Parameter out of range
  64.  
  65.  
  66.